home *** CD-ROM | disk | FTP | other *** search
/ B Soft 1 / B-Soft_1_19xx_Maik__Mike_de_Side_A.d64 / psychotest ii (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  221 lines
  1. 1 print"":poke53281,0:poke53280,7:a=0
  2. 2 print"":foru=1to300:nextu:goto50
  3. 3 print"[159]":foru=1to300:nextu:goto50
  4. 4 print"[156]":foru=1to300:nextu:goto50
  5. 5 print"":foru=1to300:nextu:goto50
  6. 6 print"":foru=1to300:nextu:goto50
  7. 7 print"[158]":foru=1to300:nextu:goto50
  8. 8 print"[149]":foru=1to300:nextu:goto50
  9. 9 print"[152]":foru=1to300:nextu:goto50
  10. 50 print:print"[147]":print:print:print
  11. 55 print"               [175][175][175][175][175][175][175][175][175][175]"
  12. 60 print"              [182]psychotest[181]"
  13. 70 print"         [175][210][198][195][196][197][183][183][183][183]ii[183][183][183][183][197][196][195][198][210][175]"
  14. 80 print"         [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  15. 90 print"         [180]written by mr.joker![170]"
  16. 100 print"         [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  17. 110 print"         [180]written in 1990 ....[170]"
  18. 120 print"         [180]beleidigungstest und[170]"
  19. 130 print"         [180]psychotest ii !!!!!![170]"
  20. 140 print"         [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  21. 145 a=a+1:ifa=7 then goto170
  22. 150 cl=int(8*rnd(1))+1
  23. 160 oncl goto 2,3,4,5,6,7,8,9
  24. 170 forx=1to1000:nextx
  25. 180 print"[147]":print""
  26. 190 print:print" dieses ist die vortsaetzung"
  27. 200 print:print" des chaotischen psychotests."
  28. 210 print:print" macht euch bereit auf eine"
  29. 220 print:print" weitere verarschung."
  30. 230 print:print" antwortet mit [j] fuer ja"
  31. 240 print:print" und mit [n] fuer nein."
  32. 250 print:print:print" nach dem gespraech mit dem"
  33. 260 print:print" computer wirst du ein"
  34. 270 print:print" ganz persoenliches"
  35. 280 print:print" endergebnis ueber dich"
  36. 290 print:print" hoeren.  viel spass!"
  37. 300 geta$:ifa$=""then300
  38. 310 print"[147]"
  39. 320 print:print" jetzt stelle ich dir einen haufen"
  40. 330 print:print" bloeder fragen ,ok?
  41. 340 [129]x[178]1[164]1500:[130]x
  42. 350 [153]:[153]" es geht los!"
  43. 360 [129]x[178]1[164]1000:[130]x
  44. 370 [153]"load"
  45. 380 [153]:[133]" wie heisst du";qw$
  46. 390 [153]"load ":[133]" wie alt bist du";we$
  47. 400 [153]"load ":[133]" wie gross bist du (cm)";er$
  48. 410 [153]"load":[153]" jetzt wird es peinlich!!!!"
  49. 420 [129]x[178]1[164]1000:[130]x
  50. 430 [153]:[153]" aber nicht fuer mich!":[129]x[178]1[164]400:[130]x
  51. 440 [153]:[153]" sondern fuer dich!!!!!!!!!":[129]x[178]1[164]900:[130]x
  52. 450 [153]"load ":[153]" gieb's zu ";qw$;"! hast du dir heute"
  53. 460 [153]:[153]" schon die zaehne geputzt?"
  54. 470 [161]b$:[139]b$[178]""[167]470
  55. 480 [139] b$[178]"n"[167][137]500
  56. 490 [137]540
  57. 500 [153]"load ":[153]" das kannst du mit ";we$;" ja auch"
  58. 501 [153]:[153]" noch nicht,ne?du elender saeugling du!"
  59. 510 [153]:[153]" auf dass dir die zaehne zerfaueln du"
  60. 511 [153]:[153]" faule sau!":[137]550
  61. 540 [153]:[153]"wenn ich rauskrieg,dass du gelogen hast!"
  62. 550 [161]a$:[139]a$[178]""[167]550:[153]"load "
  63. 560 [151]53281,5:[153]"loadstop"
  64. 570 [153]:[153]" jetzt kommen ja+nein fragen!
  65. 580 print:print" kannst du gitarre spielen?"
  66. 590 getc$:ifc$=""then590
  67. 600 print:print" wohnst du im gulli?"
  68. 610 getd$:ifd$=""then610
  69. 620 print:print" hast du blaehungen?"
  70. 630 gete$:ife$=""then630
  71. 640 ife$="j"then print:print" riecht man.oder ist das dein":print" mundgeruch?"
  72. 650 print:print" hast du ein gehirn?"
  73. 660 getf$:iff$=""then660
  74. 670 iff$="j" then print:print" nicht zu fassen!"
  75. 680 iff$="n" then print:print" konnte ich mir gleich denken."
  76. 690 print:print" ist das dein popel,der da auf dem "
  77. 700 print:print" monitor klebt?"
  78. 710 getg$:ifg$=""then710
  79. 720 ifg$="j"then print:print" mach den sofort da weg!!!!"
  80. 730 print:print" hast du einen eierkopf?"
  81. 740 geth$:ifh$=""then740
  82. 750 print:print" bist du ein trinker?"
  83. 760 geti$:ifi$=""then760
  84. 770 ifi$="n"then print:print" kannst du echt ohne alkohol leben?????"
  85. 780 print:print" hast du einen kamm?"
  86. 790 getj$:ifj$=""then790
  87. 800 ifj$="j"then print:print" dann kaemm dich mal"
  88. 810 ifj$="n"then print:print" das sieht man!!!!"
  89. 820 forx=1to1000:nextx:poke53281,3:poke53280,13:print""
  90. 830 print"                                        "
  91. 840 forx=1to2000:nextx:poke53280,15:print"[144]"
  92. 850 print"[147]":poke53281,11
  93. 860 print:print" ergebnis nr.1"
  94. 870 print" [184][184][184][184][184][184][184][184][184][184][184][184][184]"
  95. 880 print:print" von ";qw$;"     alter:angeblich ";we$
  96. 890 print:print" ";qw$;" ist ";er$;"cm gross,"
  97. 900 ifb$="n" then print:print" und wird in 1 jahr ein gammelgebiss"
  98. 910 ifb$="n" then print:print" wie ein nilpferd haben."
  99. 920 print:print" ";qw$;" ist sehr,sehr,sehr"
  100. 930 ifc$="j"then print:print" ,sehr musikbeschaedigt,"
  101. 940 ifc$="n"then print:print" unmusikalisch,"
  102. 950 ifd$="j"then print:print" und wohnt im gulli neben hilmar."
  103. 960 ifd$="n"then print:print" und wohnt nicht mal im gulli."
  104. 970 ifd$="j"then print:print" der gulli geht ja aber hilmar!!!"
  105. 980 ifb$="n" and d$="j" and h$="j" and j$="n" and e$="j" then goto1300
  106. 990 ifb$="j" and f$="n" and d$="j" and j$="j" then goto1310
  107. 1000 ifc$="j" and d$="n" and f$="j" and h$="j" then goto1320
  108. 1010 ifc$="n" and f$="n" and j$="n" and g$="j" then goto1330
  109. 1020 ifd$="j" and e$="j" and f$="n" and h$="j" and j$="n" then goto1340
  110. 1030 ifc$="j" and f$="j" and h$="n" and i$="j" then goto1350
  111. 1040 ifc$="j" and d$="n" and e$="n" and f$="n" and i$="j" and j$="j" then1360
  112. 1050 ifc$="j" and d$="j" and e$="j" and i$="j" and j$="n"then goto1370
  113. 1060 goto1380
  114. 1300 print"  ":print" du stimmst um 99,9% mit blask      ueberein!":goto1500
  115. 1310 print"  ":print" du bist genau son brett wie hilmar!":goto1500
  116. 1320 print"  ":print" du kannst mir mal am sack kraueln!":goto1500
  117. 1330 print"  ":print" du hast ne visage wie nasenschleim!":goto1500
  118. 1340 print"  ":print" mehr wert als scheisse  bist du auch nicht!":goto1500
  119. 1350 print"  ":print" genau son saeufer wie harald junke.":goto1500
  120. 1360 print"  ":print" du bist ne stinkreiche sau!":goto1500
  121. 1370 print"  ":print" wie ein bettler in der baeckerstr.":goto1500
  122. 1380 print:print" du bist wie jeder behinderte!"
  123. 1500 getm$:ifm$=""then1500
  124. 1740 print"[147]"
  125. 1750 print:print" druecke eine taste wenn du dich von "
  126. 1760 print:print" einem wort beleidigt fuehlst!"
  127. 1770 forx=1to4000:nextx
  128. 1780 d=100
  129. 1790 print:print" dummerchen!"
  130. 1800 gosub24000
  131. 1810 print:print" paddel!"
  132. 1820 gosub24000
  133. 1830 print:print" niete!"
  134. 1840 gosub24000
  135. 1850 print:print" toeffel!"
  136. 1860 gosub24000
  137. 1870 print:print" arsch!"
  138. 1880 gosub24000
  139. 1890 print:print" schleimarsch!"
  140. 1900 gosub24000
  141. 1910 print:print" fette sau!"
  142. 1920 gosub24000
  143. 1930 print:print" feiges schwein!"
  144. 1940 gosub24000
  145. 1950 print:print" wixer!"
  146. 1960 gosub24000
  147. 1970 print:print" homo!"
  148. 1980 gosub24000
  149. 1990 print:print" drecksschwein!"
  150. 2000 gosub24000
  151. 2010 print:print" kiffer!"
  152. 2020 gosub24000
  153. 2030 print:print" kanacke!"
  154. 2040 gosub24000
  155. 2050 print:print" jude!"
  156. 2060 gosub24000
  157. 2070 print:print" bastard!"
  158. 2080 gosub24000
  159. 2090 print:print" saeugling!"
  160. 2100 gosub24000
  161. 2110 print:print" scheisshaufen!"
  162. 2120 gosub24000
  163. 2130 print:print" fucker!"
  164. 2140 gosub24000
  165. 2150 print:print" mirko franke!"
  166. 2160 gosub24000
  167. 2170 print:print" uwe blask!"
  168. 2180 gosub24000
  169. 2190 print:print" gonzales!"
  170. 2200 gosub24000
  171. 2210 print:print" schleimiges dreckiges arschloch!"
  172. 2220 gosub24000
  173. 2230 print:print" goetzgi!"
  174. 2240 gosub24000
  175. 2250 print:print" ";qw$;"!"
  176. 2260 gosub24000
  177. 2270 print:print" aetsch!"
  178. 2280 gosub24000
  179. 2290 forx=1to1000:nextx
  180. 2300 print"[147]":poke53281,0
  181. 2310 ifd=0 then print:print" entweder du hast weggeguckt,oder kannst"
  182. 2320 ifd=0 then print" kannst nicht lesen."
  183. 2330 ifd=4 then print:print" also weisst du dass du wiederlich bist?"
  184. 2340 ifd>4 and d<28 then print:print" ich kann dich verstehen!"
  185. 2350 ifd=28 then print:print" wieso? du bist doch ein fucker!"
  186. 2360 ifd=32 then print:print" giebs' zu! du stinkst doch genau so!"
  187. 2370 ifd=36 then print:print" ich hab doch gestern gesehen,wie du"
  188. 2380 ifd=36 then print:print" noch an mamis titte gelutscht hast!"
  189. 2390 ifd>36 and d<56 then print:print" stimmt doch!"
  190. 2400 ifd=56 then print:print" stimmt doch! du waescht dich ja nie!!!"
  191. 2410 ifd=60 then print:print" homo-homo-homo-homo-homo-homo-homo-homo-homo"
  192. 2420 ifd=64 then print:print" was machst du denn sonst da?"
  193. 2430 ifd=68 then print:print" wenn du nicht so feige waerst haettest"
  194. 2440 ifd=68 then print:print" du feiges schwein ja weiter gelesen!!"
  195. 2450 ifd=72 then print:print" du stinkst doch schon vor fettheit!"
  196. 2460 ifd>72 and d<84 then print:print" ach das ist doch dein gesicht?"
  197. 2470 ifd=84 then print:print" war das so schlimm?"
  198. 2480 ifd=88 then print:print" bist du denn keine? guck doch mal in"
  199. 2490 ifd=88 then print:print" deine unterhose!!!"
  200. 2500 ifd=92 then print:print" du bist wirklich ein paddel! giebs zu!"
  201. 2505 ifd=92 then print:print" du wolltest garkeine taste druecken!!!"
  202. 2510 ifd=96 then print:print" och mein kleines baby! bist du jetzt"
  203. 2520 ifd=96 then print:print" so trurig,weil ich dich dummerchen      nannte?"
  204. 2530 ifd=100 then print:print" kannst mal warten du hastige sau?"
  205. 2540 print:print" dein empfindlichkeitsquotient:";d;"%"
  206. 2550 geta$:ifa$=""then2550
  207. 2560 print"[147]"
  208. 2570 print:print" ok ";qw$;" du pferdegebiss, das wars!"
  209. 2575 print:print" wenn du den gleichen stuss noch mal"
  210. 2580 print:print" machen willst,dann musst du nur "
  211. 2590 print:print" bescheid sagen!wenn nicht dann hau ab!"
  212. 2600 input" ";fh$
  213. 2610 if fh$="hau ab"then new
  214. 2620 if fh$="bescheid"then run
  215. 2630 goto 2590
  216. 24000 m=0:d=d-4
  217. 24100 m=m+1
  218. 24150 ifm=100 thenreturn
  219. 24200 getn$:ifn$=""then goto24100
  220. 24300 goto 2300
  221.